My Meme

This meme uses funny yet relatable cat images to express how I feel when I am coding.

library(magick)

###### creation of white squares with text
whiteSquare1 <- image_blank(width = 200, 
                            height = 200, 
                            color = "#f6f3ee")%>%
  image_annotate(text = "Me expecting my code to \nfail for the 23857th\n time again",
                 color = "#000000",
                 size = 17,
                 gravity = "center"
                 )

#whiteSquare1


whiteSquare2 <- image_blank(width = 200, 
                            height = 200, 
                            color = "#f6f3ee")%>%
  image_annotate(text = "The code finally works",
                 color = "#000000",
                 size = 17,
                 gravity = "center"
  )

# whiteSquare2



###### creation of cat images
sadCat <- image_read("https://i.pinimg.com/564x/09/25/a2/0925a2756ba53cff5b662c8518af2728.jpg")%>%
  image_scale(200)%>%
  image_flop()

#sadCat

sadShoutingCat <- image_read("https://i.pinimg.com/564x/bd/d7/87/bdd787a0ed233b5af0b80ae6dd383e85.jpg")%>%
  image_scale(300)%>%
  image_crop("200x200+50")

#sadShoutingCat



###### adding and stacking images together
firstRow <- c(sadCat, whiteSquare1)%>%
  image_append()

secondRow <- c(sadShoutingCat, whiteSquare2)%>%
  image_append()



catMeme <- c(firstRow, secondRow)%>%
  image_append(stack=TRUE)


##### view meme
catMeme

###### saving meme as file

image_write(catMeme, "cat_Meme.png")

My Animated GIF

This meme shows the stages of cuteness aggression whenever I see a very cute cat.

library(magick)

##### cute cat set up
cuteCat <- image_read("https://i.pinimg.com/564x/8c/b6/1f/8cb61f5c432e146e4b9aad26cc5effbb.jpg")%>%
  image_scale(400)


##### animation frames set up
frame1 <- image_read("https://i.pinimg.com/564x/64/fb/fb/64fbfb74ba6a5ec4d85f7a16c3a0b9c3.jpg")%>%
  image_scale(300)%>%
  image_extent("400x400", gravity = "center", color = "#FFFFFF")
frame1 <- c(cuteCat, frame1)%>%
  image_append()



frame2 <- image_read("https://i.pinimg.com/564x/dd/fe/28/ddfe285c254f6c54be50921c2aef5bef.jpg")%>%
  image_scale(300)%>%
  image_extent("400x400", gravity = "center", color = "#FFFFFF")
frame2 <- c(cuteCat, frame2)%>%
  image_append()



frame3 <- image_read("https://i.pinimg.com/236x/8d/13/cf/8d13cf9fb31bbf03f8fc186fc03d10f6.jpg")%>%
  image_scale(300)%>%
  image_extent("400x400", gravity = "center", color = "#FFFFFF")
frame3 <- c(cuteCat, frame3)%>%
  image_append()


frame4 <- image_read("https://i.pinimg.com/564x/a2/01/74/a20174dc9db4cbc96661b62d69759305.jpg")%>%
  image_scale(300)%>%
  image_extent("400x400", gravity = "center", color = "#FFFFFF")
frame4 <- c(cuteCat, frame4)%>%
  image_append()



##### frames in order and animating the frames
catGif <- c(frame1, frame2, frame3, frame4, frame3, frame2, frame1)%>%
  image_morph()%>%
  image_animate(fps=10)%>%
  image_annotate(text = "Me when I see a cat", size = 30, location = "+470+450")

##### view gif
catGif

##### saving gif as a file
image_write(catGif, "cute_Cat_Aggression.gif")